home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 99 / Tiger_Disk_099_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende 041 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  950b  |  22 lines
  1. 100 poke 53280,.:poke53281,.:poke646,8  :printchr$(147):v=53248
  2. 110 poke53269,1:poke2040,11:pokev+21,1:
  3. 115 forc=8to15:poke646,c:print"[145][145][145]";
  4. 120 print"                                        ";
  5. 125 print"[145]                                        ";:
  6. 130 print"                                        ";:
  7. 135 print"                                        ";;;         :next
  8. 140 fori=1784to2023:pokei,98 :next
  9. 150 fors=0to62:readq:poke704+s,q:next:pokev+23,1:pokev+29,1:pokev+s,33
  10. 160 :forx=90to205step31:poke53248,x:poke53249,x/1.7:gosub200
  11. 165 fore=24to30step.6:poke53265,e:poke53265,peek(53265)and239
  12. 170 nexte:forp=21to36step.9:poke53270,p+24:pokev+28,p+(p+2)
  13. 180 pokev+37,p+2:pokev+38,p+6:poke53265,peek(53265)or16:next:next
  14. 190 poke54296,0:forz=1to1000:next:sys58253
  15. 200 poke54296,15:poke54278,155:forj=1to6step.9:poke54276,j+129:next
  16. 210 fori=0to33:poke54273,5+abs(16-i):poke54276,(i/.5662):next
  17. 220 return
  18. 230 data 122,46,122,67,41,66,114,169,114,66,105,64,122,46,122
  19. 240 data0,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,126,0,0,219,64,0,255
  20. 250 data64,0,255,96,0,102,112,0,60,112,0,126,112,7,255
  21. 260 data240,15,255,240,14,255,224,14,255,0
  22.